************************************************
*TABLE 4: Defensive ownership, 2004
************************************************
local mresult "Results/Table4.xls"
local fresult "Results/TableA3.xls"
local rresult "Results/Table4r.xls"

*NO OLIGARCH AND DISTANCE
use "Regressions Data/baseline0406.dta",clear
set more off
keep if year==2004

*No oligarch in chain
reg no_oligarch_chain  orange gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group)
outreg2 using `mresult', replace dec(3) ctitle(OLS oligarch) keep(orange gray lemp tfp privatized) excel

ivreg2 no_oligarch_chain (orange=YuDec) gray lemp tfp privatized sec1 sec2 sec4-sec10,first cluster(group)
outreg2 using `mresult',  append dec(3)  ctitle(IV oligarch) keep(orange gray lemp tfp privatized)

*Distance to oligarch
reg mdistance  orange gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group)
outreg2 using `mresult',  append dec(3)  ctitle(OLS distance) keep(orange gray lemp tfp privatized)

ivreg2 mdistance (orange=YuDec) gray lemp tfp privatized sec1 sec2 sec4-sec10, first cluster(group)
outreg2 using `mresult',  append dec(3)  ctitle(IV distance) keep(orange gray lemp tfp privatized)

*Reduced form
reg no_oligarch_chain  YuDec gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group)
outreg2 using `rresult',  replace dec(3) ctitle(No oligarch) keep(YuDec)

reg mdistance YuDec gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group)
outreg2 using `rresult',  append dec(3) ctitle(Distance) keep(YuDec)

******************************
*TABLE A3: First stage results
******************************
reg orange YuDec gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group)
outreg2 using `fresult',  replace dec(3) ctitle(First stage: CS) keep(YuDec gray lemp tfp privatized)

*FOREIGN AND OFFSHORE
use "Regressions Data/baseline0406_nown.dta",clear
set more off
keep if year==2004

*Foreign
reg foreign_in_chain  orange gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group)
outreg2 using `mresult',  append dec(3) ctitle(OLS foreign) keep(orange gray  lemp tfp privatized)

ivreg2 foreign_in_chain (orange=YuDec) gray lemp tfp privatized sec1 sec2 sec4-sec10, first cluster(group)
outreg2 using `mresult',  append dec(3) ctitle(IV foreign) keep(orange gray lemp tfp privatized)

*Offshore
reg offshore  orange gray lemp tfp privatized sec1 sec2 sec4-sec10,cluster(group) 
outreg2 using `mresult',  append dec(3) ctitle(OLS offshore) keep(orange gray lemp tfp privatized)

ivreg2 offshore (orange=YuDec) gray lemp tfp privatized sec1 sec2 sec4-sec10,cluster(group) first
outreg2 using `mresult',  append dec(3) ctitle(IV offshore) keep(orange gray lemp tfp privatized)

*Reduced form
reg foreign_in_chain   YuDec gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group)
outreg2 using `rresult',  append dec(3) ctitle(foreign_in_chain) keep(YuDec)

reg offshore YuDec gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group)
outreg2 using `rresult',  append dec(3) ctitle(Offshore) keep(YuDec)

******************************
*TABLE A3: First stage results
******************************
reg orange YuDec gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group)
outreg2 using `fresult',  append dec(3) ctitle(First stage: CS) keep(YuDec gray lemp tfp privatized)


